4D Doc Center : CT SET FILLS ATTRIBUTES

4D Chart v13

CT SET FILLS ATTRIBUTES


CT SET FILLS ATTRIBUTES ( area ; objects ; patterns ; colors )

引数	型	説明
area	倍長整数	4D Chart エリア
objects	倍長整数配列	オブジェクトID番号のリスト
patterns	整数配列	パターン番号のリスト
colors	倍長整数配列	カラーの値のリスト

説明

CT SET FILLS ATTRIBUTES コマンドは、オブジェクトのリストに適用されることを除き、CT SET FILL ATTRIBUTES コマンドと同じように動作します。引数 objects には、塗りつぶし属性を設定したいオブジェクトのID番号のリストを格納する倍長整数の配列を渡します。

引数 patterns と colors は、対応している属性を格納している配列です。

詳細は、CT SET FILL ATTRIBUTES コマンドを参照してください。

例題

この例題では、vct という名前の4D Chart エリアを含むフォームがあると想定します。特定な線とパターンを使用して、100個の矩形を同時に作成します。CT SET LINE ATTRIBUTES コマンドと CT SET FILL ATTRIBUTES コマンドを100回呼び出す代わりに、1度の呼び出しで、配列を埋め、矩形の属性を定義します。

以下は、フォーム用のメソッドです。

 If(Form event=On Load)

    ARRAY LONGINT($ids;100)

    ARRAY INTEGER($pat;100)

    ARRAY INTEGER($pat2;100)

    ARRAY LONGINT($color;100)

    ARRAY LONGINT($color2;100)

    ARRAY LONGINT($ln;100) `または ARRAY REAL ($ln;100)

    CT SELECT(vct;-1;1)

    CT DO COMMAND(vct;2006)

    For($i;1;100)

       $ids{$i}:=CT Draw rectangle(vCT;40+($i*10);40;40+(($i+1)*10)-2;60;0)

       $pat{$i}:=1+($i%30)

       $pat2{$i}:=1+($i%15)

       $color{$i}:=CT Index to color($i)

       $color2{$i}:=CT Index to color(100-$i)

       $ln{$i}:=1+$i%4

    End for

    CT SET FILL ATTRIBUTES(vct;$ids;$pat;$color)

    CT SET LINE ATTRIBUTES(vct;$ids;$pat2;$color2;$ln)

 End if